home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / 4th Dimension 6.0.6 demo / Databases / 3rd Party Internet Demos / Netlink Demo / MacOS / NetLink_examples / Special_Character_conversion < prev    next >
Encoding:
Text File  |  1998-02-02  |  9.6 KB  |  623 lines  |  [TEXT/ttxt]
  1. Special thanks to Bill Hutten for sharing these procedures.
  2.  
  3. Subject:     Re: special characters
  4. Sent:        11/10  11:11 AM
  5. Received:    11/10  10:15 AM
  6. From:        Bill Hutten, bhutten@fox.nstn.ca
  7. To:          Tom Trefny, tom_trefny@fsti.com
  8.  
  9.  
  10.  
  11. Hi: below are the procedures. These convert Mac ASCII & ISO 8859-1 chars to
  12. their HTML eqivalents...........just email me if you have problems,
  13. questions, etc.
  14.  
  15.  
  16. - bill
  17.  
  18.  
  19. -------------------------------------------------------------
  20.  
  21.   ` (P)ut_mac2HTML --
  22.  
  23.  
  24. C_TEXT($1;$0;$t)
  25. C_LONGINT($i)
  26.  
  27. $t:=""
  28.  
  29. For ($i;1;Length($1))
  30.   If (Ascii($1≤$i≥)>127)
  31.     $t:=$t+ut_doMac2HTML ($1≤$i≥)
  32.   Else
  33.     $t:=$t+$1≤$i≥
  34.   End if
  35. End for
  36.  
  37. $0:=$t
  38.  
  39. ---------------------------------------------------------------------
  40.  
  41.   ` (P)ut_ISO2HTML --
  42.  
  43.  
  44. C_TEXT($1;$0;$t)
  45. C_LONGINT($i)
  46.  
  47. $t:=""
  48.  
  49. For ($i;1;Length($1))
  50.   If (Ascii($1≤$i≥)>127)
  51.     $t:=$t+ut_doISO2HTML ($1≤$i≥)
  52.   Else
  53.     $t:=$t+$1≤$i≥
  54.   End if
  55. End for
  56.  
  57. $0:=$t
  58.  
  59. ---------------------------------------------------------------------
  60.  
  61.  
  62.   ` (P)ut_doMac2HTML --
  63.  
  64.   ` ----- passed a macintosh char, this will return a char which
  65.   ` ----- is mapped to its HTML equivalent…
  66.  
  67.  
  68. C_STRING(2;$1)
  69. C_STRING(20;$0)
  70.  
  71. C_STRING(2;$t)
  72. C_INTEGER($val)
  73.  
  74. $t:=$1
  75. $val:=Ascii($t)
  76.  
  77. Case of
  78.   : ($val=128)
  79.     $0:="Ä"
  80.   : ($val=129)
  81.     $0:="Å"
  82.   : ($val=130)
  83.     $0:="Ç"
  84.   : ($val=131)
  85.     $0:="É"
  86.   : ($val=132)
  87.     $0:="Ñ"
  88.   : ($val=133)
  89.     $0:="Ö"
  90.   : ($val=134)
  91.     $0:="Ü"
  92.   : ($val=135)
  93.     $0:="á"
  94.   : ($val=136)
  95.     $0:="à"
  96.   : ($val=137)
  97.     $0:="â"
  98.   : ($val=138)
  99.     $0:="ä"
  100.   : ($val=139)
  101.     $0:="ã"
  102.   : ($val=140)
  103.     $0:="å"
  104.   : ($val=141)
  105.     $0:="ç"
  106.   : ($val=142)
  107.     $0:="é"
  108.   : ($val=143)
  109.     $0:="è"
  110.   : ($val=144)
  111.     $0:="ê"
  112.   : ($val=145)
  113.     $0:="ë"
  114.   : ($val=146)
  115.     $0:="í"
  116.   : ($val=147)
  117.     $0:="ì"
  118.   : ($val=148)
  119.     $0:="î"
  120.   : ($val=149)
  121.     $0:="ï"
  122.   : ($val=150)
  123.     $0:="ñ"
  124.   : ($val=151)
  125.     $0:="ó"
  126.   : ($val=152)
  127.     $0:="ò"
  128.   : ($val=153)
  129.     $0:="ô"
  130.   : ($val=154)
  131.     $0:="ö"
  132.   : ($val=155)
  133.     $0:="õ"
  134.   : ($val=156)
  135.     $0:="ú"
  136.   : ($val=157)
  137.     $0:="ù"
  138.   : ($val=158)
  139.     $0:="û"
  140.   : ($val=159)
  141.     $0:="ü"
  142.   : ($val=160)
  143.     $0:="&43;"
  144.   : ($val=161)
  145.     $0:="&176;"
  146.   : ($val=162)
  147.     $0:="&162;"
  148.   : ($val=163)
  149.     $0:="&163;"
  150.   : ($val=164)
  151.     $0:="&167;"
  152.   : ($val=165)
  153.     $0:="&183;"
  154.   : ($val=166)
  155.     $0:="&182;"
  156.   : ($val=167)
  157.     $0:="ß"
  158.   : ($val=168)
  159.     $0:="&174;"
  160.   : ($val=169)
  161.     $0:="&169;"
  162.   : ($val=170)
  163.     $0:="&42;"
  164.   : ($val=171)
  165.     $0:="&180;"
  166.   : ($val=172)
  167.     $0:="&168;"
  168.   : ($val=173)
  169.     $0:="&42;"
  170.   : ($val=174)
  171.     $0:="Æ"
  172.   : ($val=175)
  173.     $0:="Ø"
  174.   : ($val=176)
  175.     $0:="&42;"
  176.   : ($val=177)
  177.     $0:="&177;"
  178.   : ($val=178)
  179.     $0:="&42;"
  180.   : ($val=179)
  181.     $0:="&42;"
  182.   : ($val=180)
  183.     $0:="&165;"
  184.   : ($val=181)
  185.     $0:="&181;"
  186.   : ($val=182)
  187.     $0:="&42;"
  188.   : ($val=183)
  189.     $0:="&42;"
  190.   : ($val=184)
  191.     $0:="&42;"
  192.   : ($val=185)
  193.     $0:="&112;"
  194.   : ($val=186)
  195.     $0:="&42;"
  196.   : ($val=187)
  197.     $0:="&170;"
  198.   : ($val=188)
  199.     $0:="&186;"
  200.   : ($val=189)
  201.     $0:="&42;"
  202.   : ($val=190)
  203.     $0:="æ"
  204.   : ($val=191)
  205.     $0:="ø"
  206.   : ($val=192)
  207.     $0:="&191;"
  208.   : ($val=193)
  209.     $0:="&161;"
  210.   : ($val=194)
  211.     $0:="&172;"
  212.   : ($val=195)
  213.     $0:="&42;"
  214.   : ($val=196)
  215.     $0:="&102;"
  216.   : ($val=197)
  217.     $0:="&61;"
  218.   : ($val=198)
  219.     $0:="&42;"
  220.   : ($val=199)
  221.     $0:="&171;"
  222.   : ($val=200)
  223.     $0:="&187;"
  224.   : ($val=201)
  225.     $0:="&42;"
  226.   : ($val=202)
  227.     $0:="&160;"
  228.   : ($val=203)
  229.     $0:="À"
  230.   : ($val=204)
  231.     $0:="Ã"
  232.   : ($val=205)
  233.     $0:="Õ"
  234.   : ($val=206)
  235.     $0:="&42;"
  236.   : ($val=207)
  237.     $0:="&42;"
  238.   : ($val=208)
  239.     $0:="&173;"
  240.   : ($val=209)
  241.     $0:="&173;"
  242.   : ($val=210)
  243.     $0:="&34;"
  244.   : ($val=211)
  245.     $0:="&34;"
  246.   : ($val=212)
  247.     $0:="&39;"
  248.   : ($val=213)
  249.     $0:="&39;"
  250.   : ($val=214)
  251.     $0:="&247;"
  252.   : ($val=215)
  253.     $0:="&42;"
  254.   : ($val=216)
  255.     $0:="ÿ"
  256.   : ($val=217)
  257.     $0:="ÿ"
  258.   : ($val=218)
  259.     $0:="&47;"
  260.   : ($val=219)
  261.     $0:="&164;"
  262.   : ($val=220)
  263.     $0:="&60;"
  264.   : ($val=221)
  265.     $0:="&62;"
  266.   : ($val=222)
  267.     $0:="Þ"
  268.   : ($val=223)
  269.     $0:="þ"
  270.   : ($val=224)
  271.     $0:="&42;"
  272.   : ($val=225)
  273.     $0:="&183;"
  274.   : ($val=226)
  275.     $0:="&44;"
  276.   : ($val=227)
  277.     $0:="&44;"
  278.   : ($val=228)
  279.     $0:="&37;"
  280.   : ($val=229)
  281.     $0:="Â"
  282.   : ($val=230)
  283.     $0:="Ê"
  284.   : ($val=231)
  285.     $0:="Á"
  286.   : ($val=232)
  287.     $0:="Ë"
  288.   : ($val=233)
  289.     $0:="È"
  290.   : ($val=234)
  291.     $0:="Í"
  292.   : ($val=235)
  293.     $0:="Î"
  294.   : ($val=236)
  295.     $0:="Ï"
  296.   : ($val=237)
  297.     $0:="Ì"
  298.   : ($val=238)
  299.     $0:="Ó"
  300.   : ($val=239)
  301.     $0:="Ô"
  302.   : ($val=240)
  303.     $0:="&42;"
  304.   : ($val=241)
  305.     $0:="Ò"
  306.   : ($val=242)
  307.     $0:="Ú"
  308.   : ($val=243)
  309.     $0:="Û"
  310.   : ($val=244)
  311.     $0:="Ù"
  312.   : ($val=245)
  313.     $0:="&124;"
  314.   : ($val=246)
  315.     $0:="&94;"
  316.   : ($val=247)
  317.     $0:="&126;"
  318.   : ($val=248)
  319.     $0:="&175;"
  320.   : ($val=249)
  321.     $0:="&42;"
  322.   : ($val=250)
  323.     $0:="&39;"
  324.   : ($val=251)
  325.     $0:="&176;"
  326.   : ($val=252)
  327.     $0:="&184;"
  328.   : ($val=253)
  329.     $0:="&168;"
  330.   : ($val=254)
  331.     $0:="&184;"
  332.   : ($val=255)
  333.     $0:="&42;"
  334. End case
  335.  
  336. ---------------------------------------------------------------------
  337.  
  338.  
  339.   ` (P)ut_doISO2HTML --
  340.  
  341.   ` ----- passed an ISO 8859-1 char, this will return a char which
  342.   ` ----- is mapped to its HTML equivalent…
  343.  
  344.  
  345. C_STRING(2;$1)
  346. C_STRING(20;$0)
  347.  
  348. C_STRING(2;$t)
  349. C_INTEGER($val)
  350.  
  351. $t:=$1
  352. $val:=Ascii($t)
  353.  
  354.  
  355. Case of
  356.   : ($val=196)
  357.     $0:="Ä"
  358.   : ($val=197)
  359.     $0:="Å"
  360.   : ($val=199)
  361.     $0:="Ç"
  362.   : ($val=201)
  363.     $0:="É"
  364.   : ($val=209)
  365.     $0:="Ñ"
  366.   : ($val=214)
  367.     $0:="Ö"
  368.   : ($val=220)
  369.     $0:="Ü"
  370.   : ($val=225)
  371.     $0:="á"
  372.   : ($val=224)
  373.     $0:="à"
  374.   : ($val=226)
  375.     $0:="â"
  376.   : ($val=228)
  377.     $0:="ä"
  378.   : ($val=227)
  379.     $0:="ã"
  380.   : ($val=229)
  381.     $0:="å"
  382.   : ($val=231)
  383.     $0:="ç"
  384.   : ($val=233)
  385.     $0:="é"
  386.   : ($val=232)
  387.     $0:="è"
  388.   : ($val=234)
  389.     $0:="ê"
  390.   : ($val=235)
  391.     $0:="ë"
  392.   : ($val=237)
  393.     $0:="í"
  394.   : ($val=236)
  395.     $0:="ì"
  396.   : ($val=238)
  397.     $0:="î"
  398.   : ($val=239)
  399.     $0:="ï"
  400.   : ($val=241)
  401.     $0:="ñ"
  402.   : ($val=243)
  403.     $0:="ó"
  404.   : ($val=242)
  405.     $0:="ò"
  406.   : ($val=244)
  407.     $0:="ô"
  408.   : ($val=246)
  409.     $0:="ö"
  410.   : ($val=245)
  411.     $0:="õ"
  412.   : ($val=250)
  413.     $0:="ú"
  414.   : ($val=249)
  415.     $0:="ù"
  416.   : ($val=251)
  417.     $0:="û"
  418.   : ($val=252)
  419.     $0:="ü"
  420.   : ($val=43)
  421.     $0:="&43;"
  422.   : ($val=176)
  423.     $0:="&176;"
  424.   : ($val=162)
  425.     $0:="&162;"
  426.   : ($val=163)
  427.     $0:="&163;"
  428.   : ($val=167)
  429.     $0:="&167;"
  430.   : ($val=183)
  431.     $0:="&183;"
  432.   : ($val=182)
  433.     $0:="&182;"
  434.   : ($val=223)
  435.     $0:="ß"
  436.   : ($val=174)
  437.     $0:="&174;"
  438.   : ($val=169)
  439.     $0:="&169;"
  440.   : ($val=42)
  441.     $0:="&42;"
  442.   : ($val=180)
  443.     $0:="&180;"
  444.   : ($val=168)
  445.     $0:="&168;"
  446.   : ($val=42)
  447.     $0:="&42;"
  448.   : ($val=198)
  449.     $0:="Æ"
  450.   : ($val=216)
  451.     $0:="Ø"
  452.   : ($val=42)
  453.     $0:="&42;"
  454.   : ($val=177)
  455.     $0:="&177;"
  456.   : ($val=42)
  457.     $0:="&42;"
  458.   : ($val=42)
  459.     $0:="&42;"
  460.   : ($val=165)
  461.     $0:="&165;"
  462.   : ($val=181)
  463.     $0:="&181;"
  464.   : ($val=42)
  465.     $0:="&42;"
  466.   : ($val=42)
  467.     $0:="&42;"
  468.   : ($val=42)
  469.     $0:="&42;"
  470.   : ($val=112)
  471.     $0:="&112;"
  472.   : ($val=42)
  473.     $0:="&42;"
  474.   : ($val=170)
  475.     $0:="&170;"
  476.   : ($val=186)
  477.     $0:="&186;"
  478.   : ($val=42)
  479.     $0:="&42;"
  480.   : ($val=230)
  481.     $0:="æ"
  482.   : ($val=248)
  483.     $0:="ø"
  484.   : ($val=191)
  485.     $0:="&191;"
  486.   : ($val=161)
  487.     $0:="&161;"
  488.   : ($val=172)
  489.     $0:="&172;"
  490.   : ($val=42)
  491.     $0:="&42;"
  492.   : ($val=102)
  493.     $0:="&102;"
  494.   : ($val=61)
  495.     $0:="&61;"
  496.   : ($val=42)
  497.     $0:="&42;"
  498.   : ($val=171)
  499.     $0:="&171;"
  500.   : ($val=187)
  501.     $0:="&187;"
  502.   : ($val=42)
  503.     $0:="&42;"
  504.   : ($val=160)
  505.     $0:="&160;"
  506.   : ($val=192)
  507.     $0:="À"
  508.   : ($val=195)
  509.     $0:="Ã"
  510.   : ($val=213)
  511.     $0:="Õ"
  512.   : ($val=42)
  513.     $0:="&42;"
  514.   : ($val=42)
  515.     $0:="&42;"
  516.   : ($val=173)
  517.     $0:="&173;"
  518.   : ($val=173)
  519.     $0:="&173;"
  520.   : ($val=34)
  521.     $0:="&34;"
  522.   : ($val=34)
  523.     $0:="&34;"
  524.   : ($val=39)
  525.     $0:="&39;"
  526.   : ($val=39)
  527.     $0:="&39;"
  528.   : ($val=247)
  529.     $0:="&247;"
  530.   : ($val=42)
  531.     $0:="&42;"
  532.   : ($val=255)
  533.     $0:="ÿ"
  534.   : ($val=255)
  535.     $0:="ÿ"
  536.   : ($val=47)
  537.     $0:="&47;"
  538.   : ($val=164)
  539.     $0:="&164;"
  540.   : ($val=60)
  541.     $0:="&60;"
  542.   : ($val=62)
  543.     $0:="&62;"
  544.   : ($val=222)
  545.     $0:="Þ"
  546.   : ($val=254)
  547.     $0:="þ"
  548.   : ($val=42)
  549.     $0:="&42;"
  550.   : ($val=183)
  551.     $0:="&183;"
  552.   : ($val=44)
  553.     $0:="&44;"
  554.   : ($val=44)
  555.     $0:="&44;"
  556.   : ($val=37)
  557.     $0:="&37;"
  558.   : ($val=194)
  559.     $0:="Â"
  560.   : ($val=202)
  561.     $0:="Ê"
  562.   : ($val=193)
  563.     $0:="Á"
  564.   : ($val=203)
  565.     $0:="Ë"
  566.   : ($val=200)
  567.     $0:="È"
  568.   : ($val=205)
  569.     $0:="Í"
  570.   : ($val=206)
  571.     $0:="Î"
  572.   : ($val=207)
  573.     $0:="Ï"
  574.   : ($val=204)
  575.     $0:="Ì"
  576.   : ($val=211)
  577.     $0:="Ó"
  578.   : ($val=212)
  579.     $0:="Ô"
  580.   : ($val=42)
  581.     $0:="&42;"
  582.   : ($val=210)
  583.     $0:="Ò"
  584.   : ($val=218)
  585.     $0:="Ú"
  586.   : ($val=219)
  587.     $0:="Û"
  588.   : ($val=217)
  589.     $0:="Ù"
  590.   : ($val=124)
  591.     $0:="&124;"
  592.   : ($val=94)
  593.     $0:="&94;"
  594.   : ($val=126)
  595.     $0:="&126;"
  596.   : ($val=175)
  597.     $0:="&175;"
  598.   : ($val=42)
  599.     $0:="&42;"
  600.   : ($val=39)
  601.     $0:="&39;"
  602.   : ($val=176)
  603.     $0:="&176;"
  604.   : ($val=184)
  605.     $0:="&184;"
  606.   : ($val=168)
  607.     $0:="&168;"
  608.   : ($val=184)
  609.     $0:="&184;"
  610.   : ($val=42)
  611.     $0:="&42;"
  612. End case
  613.  
  614.  
  615.  
  616.  
  617. ----------------------------
  618. Bill Hutten - db/www systems
  619. bhutten@cochran.com
  620. http://www.screen.com/home
  621.  
  622.  
  623.